home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 171 / 171.d81 / demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  331b  |  18 lines
  1. 5 poke53280,0:poke53281,0:print"[147][154]"
  2. 10 fori=0to100
  3. 12 printpeek(i),i
  4. 14 nexti
  5. 16 print"test 1 complete!"
  6. 18 forf=0to299:nextf
  7. 20 fori=100to0step-1
  8. 22 printi,peek(i)
  9. 24 nexti
  10. 26 print"test 2 complete!"
  11. 28 forf=0to299:nextf
  12. 30 fori=0to10
  13. 40 poke53280,i:poke53281,i+1
  14. 50 forf=0to299:nextf
  15. 60 nexti:print"[147][154]";
  16. 90 print"this test of the dual workstation is now complete..."
  17. 100 poke53280,0:poke53281,0:end
  18.